home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test3.amos / Test3.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-22  |  71 b   |  9 lines
  1. A=0
  2. For Z=1 To 6000000
  3. K=Z mod 2
  4. If K=0
  5. A=A+7
  6. Else 
  7. A=A+15
  8. End If 
  9. Next